From 05abad7287f83840dbb968d9e665360b490cdfc1 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 27 Nov 2000 14:42:42 +0000 Subject: [PATCH] (lucid_event_type_list_p): Handle `help-echo', `vertical-line', `mode-line' and `header-line' events. --- src/keyboard.c | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/src/keyboard.c b/src/keyboard.c index beaf5507ef5..c6d48d65fe1 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -4704,7 +4704,7 @@ make_lispy_event (event) if (part == 1 || part == 3) { - /* Mode line or top line. Look for a string under + /* Mode line or header line. Look for a string under the mouse that may have a `local-map' property. */ Lisp_Object string; int charpos; @@ -5824,6 +5824,12 @@ lucid_event_type_list_p (object) if (! CONSP (object)) return 0; + if (EQ (XCAR (object), Qhelp_echo) + || EQ (XCAR (object), Qvertical_line) + || EQ (XCAR (object), Qmode_line) + || EQ (XCAR (object), Qheader_line)) + return 0; + for (tail = object; CONSP (tail); tail = XCDR (tail)) { Lisp_Object elt; -- 2.30.2